(functionp): Do use cdr-safe on object.

diff --git a/lisp/subr.el b/lisp/subr.el
index 5e74889570963abe73f1287b95e5f0394c803081..b4203fd7371a125817648b3482d4f2cd8cf0229f 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1539,7 +1539,7 @@ configuration."
   (or (and (symbolp object) (fboundp object)
           (setq object (indirect-function object))
           (eq (car-safe object) 'autoload)
-          (not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr object)))))))
+          (not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr-safe object)))))))
       (subrp object) (byte-code-function-p object)
       (eq (car-safe object) 'lambda)))